(hi-lock-unface-buffer): Use nil rather than t for

predicate passed to completing-read.

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 20961226cb513707e9adfa361ca62f56650d8592..610a217916f2665991e326a926d92e9a608c0f08 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -420,7 +420,7 @@ interactive functions.  \(See `hi-lock-interactive-patterns'.\)
          (error "No highlighting to remove"))
        (list
         (completing-read "Regexp to unhighlight: "
-                         hi-lock-interactive-patterns t t
+                         hi-lock-interactive-patterns nil t
                          (car (car hi-lock-interactive-patterns))
                          (cons 'history-list 1))))))
   (let ((keyword (assoc regexp hi-lock-interactive-patterns)))